home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1995 January: System Software / Dev.CD Jan 95 / Dev.CD Jan 95.toast / Utilities / Developer Forms / Change of Name⁄Address Form / Change of Name_Address Form / background_2775.xml next >
Encoding:
Extensible Markup Language  |  1994-02-22  |  18.2 KB  |  541 lines

  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE background PUBLIC "-//Apple, Inc.//DTD background V 2.0//EN" "" >
  3. <background>
  4.     <id>2775</id>
  5.     <filler1>0</filler1>
  6.     <bitmap>BMAP_3835.pbm</bitmap>
  7.     <cantDelete> <false /> </cantDelete>
  8.     <showPict> <true /> </showPict>
  9.     <dontSearch> <false /> </dontSearch>
  10.     <link rel="stylesheet" type="text/css" href="stylesheet_3299.css" />
  11.     <part>
  12.         <id>1</id>
  13.         <type>field</type>
  14.         <visible> <true /> </visible>
  15.         <dontWrap> <false /> </dontWrap>
  16.         <dontSearch> <false /> </dontSearch>
  17.         <sharedText> <true /> </sharedText>
  18.         <fixedLineHeight> <false /> </fixedLineHeight>
  19.         <autoTab> <false /> </autoTab>
  20.         <lockText> <true /> </lockText>
  21.         <rect>
  22.             <left>22</left>
  23.             <top>19</top>
  24.             <right>391</right>
  25.             <bottom>46</bottom>
  26.         </rect>
  27.         <style>transparent</style>
  28.         <autoSelect> <false /> </autoSelect>
  29.         <showLines> <false /> </showLines>
  30.         <wideMargins> <false /> </wideMargins>
  31.         <multipleLines> <false /> </multipleLines>
  32.         <reservedFamily> 0 </reservedFamily>
  33.         <titleWidth>0</titleWidth>
  34.         <icon>0</icon>
  35.         <textAlign>left</textAlign>
  36.         <font>Times</font>
  37.         <textSize>24</textSize>
  38.         <textStyle>bold</textStyle>
  39.         <textHeight>32</textHeight>
  40.         <name>7.0 Problem</name>
  41.         <script></script>
  42.     </part>
  43.     <part>
  44.         <id>23</id>
  45.         <type>button</type>
  46.         <visible> <true /> </visible>
  47.         <reserved5> 0 </reserved5>
  48.         <reserved4> 0 </reserved4>
  49.         <reserved3> 0 </reserved3>
  50.         <reserved2> 0 </reserved2>
  51.         <reserved1> 0 </reserved1>
  52.         <enabled> <true /> </enabled>
  53.         <rect>
  54.             <left>432</left>
  55.             <top>320</top>
  56.             <right>501</right>
  57.             <bottom>338</bottom>
  58.         </rect>
  59.         <style>transparent</style>
  60.         <showName> <true /> </showName>
  61.         <highlight> <false /> </highlight>
  62.         <autoHighlight> <true /> </autoHighlight>
  63.         <sharedHighlight> <false /> </sharedHighlight>
  64.         <family>0</family>
  65.         <titleWidth>0</titleWidth>
  66.         <icon>0</icon>
  67.         <textAlign>center</textAlign>
  68.         <font>Chicago</font>
  69.         <textSize>12</textSize>
  70.         <textStyle>plain</textStyle>
  71.         <name>Send</name>
  72.         <script>-- Handler that exports the contents of every card and bkgnd field to a text file.
  73.  
  74. on mouseUp
  75. if bg fld "Company" is empty then
  76. answer "Please enter your company name before sending."
  77. select text of bg fld "Company"
  78. else if bg fld "Address" is empty then
  79. answer "Please enter the company address before sending."
  80. select text of bg fld "Address"
  81. else if bg fld "Phone" is empty then
  82. answer "Please enter your telephone number before sending."
  83. select text of bg fld "Phone"
  84. else if bg fld "Customer Number" is empty then
  85. answer "Please enter the customer number before sending."
  86. select text of bg fld "Customer Number"
  87. else if bg fld "Certified Contact" is empty then
  88. answer "Please enter the certified contact's name before sending."
  89. select text of bg fld "Certified Contact"
  90. else
  91. put getBodyText() into infoMessage
  92. exporttext infoMessage
  93. end if
  94. end mouseUp
  95.  
  96. on exportText bodyMsg --exports all data to text file.
  97. put empty into LinkCC
  98. put "Developer Information Change" into LinkSubject
  99. put "DATABASE" into LinkTo
  100.  
  101. DropInOB_6 LinkTo, LinkCC, LinkSubject, bodyMsg
  102. answer "Your Change of Name/Address Form is placed in your AppleLink Out Basket."
  103. end exportText</script>
  104.     </part>
  105.     <part>
  106.         <id>25</id>
  107.         <type>button</type>
  108.         <visible> <true /> </visible>
  109.         <reserved5> 0 </reserved5>
  110.         <reserved4> 0 </reserved4>
  111.         <reserved3> 0 </reserved3>
  112.         <reserved2> 0 </reserved2>
  113.         <reserved1> 0 </reserved1>
  114.         <enabled> <true /> </enabled>
  115.         <rect>
  116.             <left>0</left>
  117.             <top>180</top>
  118.             <right>25</right>
  119.             <bottom>209</bottom>
  120.         </rect>
  121.         <style>transparent</style>
  122.         <showName> <false /> </showName>
  123.         <highlight> <false /> </highlight>
  124.         <autoHighlight> <false /> </autoHighlight>
  125.         <sharedHighlight> <true /> </sharedHighlight>
  126.         <family>0</family>
  127.         <titleWidth>0</titleWidth>
  128.         <icon>8350</icon>
  129.         <textAlign>center</textAlign>
  130.         <font>Chicago</font>
  131.         <textSize>12</textSize>
  132.         <textStyle>plain</textStyle>
  133.         <name></name>
  134.         <script></script>
  135.     </part>
  136.     <part>
  137.         <id>26</id>
  138.         <type>button</type>
  139.         <visible> <true /> </visible>
  140.         <reserved5> 0 </reserved5>
  141.         <reserved4> 0 </reserved4>
  142.         <reserved3> 0 </reserved3>
  143.         <reserved2> 0 </reserved2>
  144.         <reserved1> 0 </reserved1>
  145.         <enabled> <true /> </enabled>
  146.         <rect>
  147.             <left>0</left>
  148.             <top>19</top>
  149.             <right>25</right>
  150.             <bottom>48</bottom>
  151.         </rect>
  152.         <style>transparent</style>
  153.         <showName> <false /> </showName>
  154.         <highlight> <false /> </highlight>
  155.         <autoHighlight> <false /> </autoHighlight>
  156.         <sharedHighlight> <true /> </sharedHighlight>
  157.         <family>0</family>
  158.         <titleWidth>0</titleWidth>
  159.         <icon>8350</icon>
  160.         <textAlign>center</textAlign>
  161.         <font>Chicago</font>
  162.         <textSize>12</textSize>
  163.         <textStyle>plain</textStyle>
  164.         <name></name>
  165.         <script></script>
  166.     </part>
  167.     <part>
  168.         <id>36</id>
  169.         <type>button</type>
  170.         <visible> <true /> </visible>
  171.         <reserved5> 0 </reserved5>
  172.         <reserved4> 0 </reserved4>
  173.         <reserved3> 0 </reserved3>
  174.         <reserved2> 0 </reserved2>
  175.         <reserved1> 0 </reserved1>
  176.         <enabled> <true /> </enabled>
  177.         <rect>
  178.             <left>340</left>
  179.             <top>320</top>
  180.             <right>409</right>
  181.             <bottom>338</bottom>
  182.         </rect>
  183.         <style>transparent</style>
  184.         <showName> <true /> </showName>
  185.         <highlight> <false /> </highlight>
  186.         <autoHighlight> <true /> </autoHighlight>
  187.         <sharedHighlight> <false /> </sharedHighlight>
  188.         <family>0</family>
  189.         <titleWidth>0</titleWidth>
  190.         <icon>0</icon>
  191.         <textAlign>center</textAlign>
  192.         <font>Chicago</font>
  193.         <textSize>12</textSize>
  194.         <textStyle>plain</textStyle>
  195.         <name>Save</name>
  196.         <script>on mouseup
  197. doMessageSave
  198. end mouseUp
  199. </script>
  200.     </part>
  201.     <part>
  202.         <id>46</id>
  203.         <type>field</type>
  204.         <visible> <true /> </visible>
  205.         <dontWrap> <false /> </dontWrap>
  206.         <dontSearch> <false /> </dontSearch>
  207.         <sharedText> <false /> </sharedText>
  208.         <fixedLineHeight> <true /> </fixedLineHeight>
  209.         <autoTab> <true /> </autoTab>
  210.         <lockText> <false /> </lockText>
  211.         <rect>
  212.             <left>180</left>
  213.             <top>187</top>
  214.             <right>440</right>
  215.             <bottom>201</bottom>
  216.         </rect>
  217.         <style>transparent</style>
  218.         <autoSelect> <false /> </autoSelect>
  219.         <showLines> <true /> </showLines>
  220.         <wideMargins> <false /> </wideMargins>
  221.         <multipleLines> <false /> </multipleLines>
  222.         <reservedFamily> 0 </reservedFamily>
  223.         <titleWidth>0</titleWidth>
  224.         <icon>0</icon>
  225.         <textAlign>left</textAlign>
  226.         <font>Geneva</font>
  227.         <textSize>10</textSize>
  228.         <textStyle>plain</textStyle>
  229.         <textHeight>13</textHeight>
  230.         <name>Company</name>
  231.         <script>on keyDown ch
  232. if lengthOK(ch, 35, "company name") then pass keyDown
  233. end keyDown</script>
  234.     </part>
  235.     <part>
  236.         <id>47</id>
  237.         <type>field</type>
  238.         <visible> <true /> </visible>
  239.         <dontWrap> <false /> </dontWrap>
  240.         <dontSearch> <false /> </dontSearch>
  241.         <sharedText> <false /> </sharedText>
  242.         <fixedLineHeight> <true /> </fixedLineHeight>
  243.         <autoTab> <true /> </autoTab>
  244.         <lockText> <false /> </lockText>
  245.         <rect>
  246.             <left>180</left>
  247.             <top>200</top>
  248.             <right>440</right>
  249.             <bottom>253</bottom>
  250.         </rect>
  251.         <style>transparent</style>
  252.         <autoSelect> <false /> </autoSelect>
  253.         <showLines> <true /> </showLines>
  254.         <wideMargins> <false /> </wideMargins>
  255.         <multipleLines> <false /> </multipleLines>
  256.         <reservedFamily> 0 </reservedFamily>
  257.         <titleWidth>0</titleWidth>
  258.         <icon>0</icon>
  259.         <textAlign>left</textAlign>
  260.         <font>Geneva</font>
  261.         <textSize>10</textSize>
  262.         <textStyle>plain</textStyle>
  263.         <textHeight>13</textHeight>
  264.         <name>Address</name>
  265.         <script></script>
  266.     </part>
  267.     <part>
  268.         <id>48</id>
  269.         <type>field</type>
  270.         <visible> <true /> </visible>
  271.         <dontWrap> <false /> </dontWrap>
  272.         <dontSearch> <false /> </dontSearch>
  273.         <sharedText> <false /> </sharedText>
  274.         <fixedLineHeight> <true /> </fixedLineHeight>
  275.         <autoTab> <true /> </autoTab>
  276.         <lockText> <false /> </lockText>
  277.         <rect>
  278.             <left>180</left>
  279.             <top>252</top>
  280.             <right>440</right>
  281.             <bottom>266</bottom>
  282.         </rect>
  283.         <style>transparent</style>
  284.         <autoSelect> <false /> </autoSelect>
  285.         <showLines> <true /> </showLines>
  286.         <wideMargins> <false /> </wideMargins>
  287.         <multipleLines> <false /> </multipleLines>
  288.         <reservedFamily> 0 </reservedFamily>
  289.         <titleWidth>0</titleWidth>
  290.         <icon>0</icon>
  291.         <textAlign>left</textAlign>
  292.         <font>Geneva</font>
  293.         <textSize>10</textSize>
  294.         <textStyle>plain</textStyle>
  295.         <textHeight>13</textHeight>
  296.         <name>Phone</name>
  297.         <script></script>
  298.     </part>
  299.     <part>
  300.         <id>66</id>
  301.         <type>button</type>
  302.         <visible> <true /> </visible>
  303.         <reserved5> 0 </reserved5>
  304.         <reserved4> 0 </reserved4>
  305.         <reserved3> 0 </reserved3>
  306.         <reserved2> 0 </reserved2>
  307.         <reserved1> 0 </reserved1>
  308.         <enabled> <true /> </enabled>
  309.         <rect>
  310.             <left>253</left>
  311.             <top>320</top>
  312.             <right>322</right>
  313.             <bottom>338</bottom>
  314.         </rect>
  315.         <style>transparent</style>
  316.         <showName> <true /> </showName>
  317.         <highlight> <false /> </highlight>
  318.         <autoHighlight> <true /> </autoHighlight>
  319.         <sharedHighlight> <false /> </sharedHighlight>
  320.         <family>0</family>
  321.         <titleWidth>0</titleWidth>
  322.         <icon>0</icon>
  323.         <textAlign>center</textAlign>
  324.         <font>Chicago</font>
  325.         <textSize>12</textSize>
  326.         <textStyle>plain</textStyle>
  327.         <name>Back</name>
  328.         <script>on mouseup
  329. global gDIAFromDIA
  330. if bg fld "Company" is not empty then
  331. answer "Save the message in a text file?" with "Cancel" ¬¨
  332. or "Back" or "Save"
  333. if it is "Cancel" then exit mouseUp
  334. if it is "Back" then
  335. goToDIA
  336. exit mouseUp
  337. end if
  338. if it is "Save" then
  339. doMessageSave
  340. end if
  341. else
  342. goToDIA
  343. end if
  344. end mouseUp
  345.  
  346. on goToDIA
  347. global gDIAWhereDIA
  348. if there is a window "Developer Info Assistant" then -- IF ALREADY OPEN
  349. show window "Developer Info Assistant"
  350. else if gDIAWhereDIA is not empty then
  351. go stack gDIAWhereDIA in a new window
  352. else
  353. put thisFolder()&"Developer Info Assistant" into localName
  354. if there is a file localName then -- IN CURRENT FOLDER
  355. go stack localName in new window
  356. else
  357. answer file "Please locate the Developer Info Assistant Stack. It must"¬¨
  358. && "be on your local hard disk."
  359. if it is "cancel" then exit goToDIA
  360. go stack it in new window -- LAST RESORT ASK WHERE
  361. end if
  362. end if
  363. end goToDIA</script>
  364.     </part>
  365.     <part>
  366.         <id>70</id>
  367.         <type>field</type>
  368.         <visible> <true /> </visible>
  369.         <dontWrap> <false /> </dontWrap>
  370.         <dontSearch> <false /> </dontSearch>
  371.         <sharedText> <true /> </sharedText>
  372.         <fixedLineHeight> <false /> </fixedLineHeight>
  373.         <autoTab> <false /> </autoTab>
  374.         <lockText> <true /> </lockText>
  375.         <rect>
  376.             <left>9</left>
  377.             <top>48</top>
  378.             <right>488</right>
  379.             <bottom>69</bottom>
  380.         </rect>
  381.         <style>transparent</style>
  382.         <autoSelect> <false /> </autoSelect>
  383.         <showLines> <false /> </showLines>
  384.         <wideMargins> <false /> </wideMargins>
  385.         <multipleLines> <false /> </multipleLines>
  386.         <reservedFamily> 0 </reservedFamily>
  387.         <titleWidth>0</titleWidth>
  388.         <icon>0</icon>
  389.         <textAlign>left</textAlign>
  390.         <font>Times</font>
  391.         <textSize>18</textSize>
  392.         <textStyle>bold</textStyle>
  393.         <textHeight>24</textHeight>
  394.         <name>Question</name>
  395.         <script></script>
  396.     </part>
  397.     <part>
  398.         <id>71</id>
  399.         <type>field</type>
  400.         <visible> <true /> </visible>
  401.         <dontWrap> <false /> </dontWrap>
  402.         <dontSearch> <false /> </dontSearch>
  403.         <sharedText> <true /> </sharedText>
  404.         <fixedLineHeight> <false /> </fixedLineHeight>
  405.         <autoTab> <false /> </autoTab>
  406.         <lockText> <true /> </lockText>
  407.         <rect>
  408.             <left>9</left>
  409.             <top>68</top>
  410.             <right>505</right>
  411.             <bottom>140</bottom>
  412.         </rect>
  413.         <style>transparent</style>
  414.         <autoSelect> <false /> </autoSelect>
  415.         <showLines> <false /> </showLines>
  416.         <wideMargins> <false /> </wideMargins>
  417.         <multipleLines> <false /> </multipleLines>
  418.         <reservedFamily> 0 </reservedFamily>
  419.         <titleWidth>0</titleWidth>
  420.         <icon>0</icon>
  421.         <textAlign>left</textAlign>
  422.         <font>Palatino</font>
  423.         <textSize>12</textSize>
  424.         <textStyle>plain</textStyle>
  425.         <textHeight>16</textHeight>
  426.         <name>Text Info Paragraph 1</name>
  427.         <script></script>
  428.     </part>
  429.     <part>
  430.         <id>73</id>
  431.         <type>field</type>
  432.         <visible> <true /> </visible>
  433.         <dontWrap> <false /> </dontWrap>
  434.         <dontSearch> <false /> </dontSearch>
  435.         <sharedText> <false /> </sharedText>
  436.         <fixedLineHeight> <true /> </fixedLineHeight>
  437.         <autoTab> <true /> </autoTab>
  438.         <lockText> <false /> </lockText>
  439.         <rect>
  440.             <left>180</left>
  441.             <top>265</top>
  442.             <right>440</right>
  443.             <bottom>279</bottom>
  444.         </rect>
  445.         <style>transparent</style>
  446.         <autoSelect> <false /> </autoSelect>
  447.         <showLines> <true /> </showLines>
  448.         <wideMargins> <false /> </wideMargins>
  449.         <multipleLines> <false /> </multipleLines>
  450.         <reservedFamily> 0 </reservedFamily>
  451.         <titleWidth>0</titleWidth>
  452.         <icon>0</icon>
  453.         <textAlign>left</textAlign>
  454.         <font>Geneva</font>
  455.         <textSize>10</textSize>
  456.         <textStyle>plain</textStyle>
  457.         <textHeight>13</textHeight>
  458.         <name>Customer Number</name>
  459.         <script>on keyDown ch
  460. if lengthOK(ch, 11, "customer number") then
  461. get charToNum (ch)
  462. if (it ‚↠3) and (it ‚↠8) and (it ‚↠9) and (it ‚↠13) then
  463. if ch is not a number then
  464. answer "Customer number consists of digits only."
  465. else
  466. pass keyDown
  467. end if
  468. else
  469. pass keyDown
  470. end if
  471. end if
  472. end keyDown</script>
  473.     </part>
  474.     <part>
  475.         <id>78</id>
  476.         <type>field</type>
  477.         <visible> <true /> </visible>
  478.         <dontWrap> <false /> </dontWrap>
  479.         <dontSearch> <false /> </dontSearch>
  480.         <sharedText> <false /> </sharedText>
  481.         <fixedLineHeight> <true /> </fixedLineHeight>
  482.         <autoTab> <true /> </autoTab>
  483.         <lockText> <false /> </lockText>
  484.         <rect>
  485.             <left>180</left>
  486.             <top>278</top>
  487.             <right>440</right>
  488.             <bottom>292</bottom>
  489.         </rect>
  490.         <style>transparent</style>
  491.         <autoSelect> <false /> </autoSelect>
  492.         <showLines> <true /> </showLines>
  493.         <wideMargins> <false /> </wideMargins>
  494.         <multipleLines> <false /> </multipleLines>
  495.         <reservedFamily> 0 </reservedFamily>
  496.         <titleWidth>0</titleWidth>
  497.         <icon>0</icon>
  498.         <textAlign>left</textAlign>
  499.         <font>Geneva</font>
  500.         <textSize>10</textSize>
  501.         <textStyle>plain</textStyle>
  502.         <textHeight>13</textHeight>
  503.         <name>Certified Contact</name>
  504.         <script>on keyDown ch
  505. if lengthOK(ch, 20, "certified contact name") then pass keyDown
  506. end keyDown</script>
  507.     </part>
  508.     <part>
  509.         <id>79</id>
  510.         <type>field</type>
  511.         <visible> <true /> </visible>
  512.         <dontWrap> <false /> </dontWrap>
  513.         <dontSearch> <false /> </dontSearch>
  514.         <sharedText> <false /> </sharedText>
  515.         <fixedLineHeight> <true /> </fixedLineHeight>
  516.         <autoTab> <true /> </autoTab>
  517.         <lockText> <false /> </lockText>
  518.         <rect>
  519.             <left>180</left>
  520.             <top>291</top>
  521.             <right>440</right>
  522.             <bottom>305</bottom>
  523.         </rect>
  524.         <style>transparent</style>
  525.         <autoSelect> <false /> </autoSelect>
  526.         <showLines> <true /> </showLines>
  527.         <wideMargins> <false /> </wideMargins>
  528.         <multipleLines> <false /> </multipleLines>
  529.         <reservedFamily> 0 </reservedFamily>
  530.         <titleWidth>0</titleWidth>
  531.         <icon>0</icon>
  532.         <textAlign>left</textAlign>
  533.         <font>Geneva</font>
  534.         <textSize>10</textSize>
  535.         <textStyle>plain</textStyle>
  536.         <textHeight>13</textHeight>
  537.         <name>Technical Contact</name>
  538.         <script>on keyDown ch
  539. if lengthOK(ch, 20, "technical contact name") then pass keyDown
  540. end keyDown</script>
  541.     </part>
  542.     <part>
  543.         <id>80</id>
  544.         <type>field</type>
  545.         <visible> <true /> </visible>
  546.         <dontWrap> <false /> </dontWrap>
  547.         <dontSearch> <false /> </dontSearch>
  548.         <sharedText> <false /> </sharedText>
  549.         <fixedLineHeight> <true /> </fixedLineHeight>
  550.         <autoTab> <true /> </autoTab>
  551.         <lockText> <false /> </lockText>
  552.         <rect>
  553.             <left>180</left>
  554.             <top>304</top>
  555.             <right>440</right>
  556.             <bottom>318</bottom>
  557.         </rect>
  558.         <style>transparent</style>
  559.         <autoSelect> <false /> </autoSelect>
  560.         <showLines> <true /> </showLines>
  561.         <wideMargins> <false /> </wideMargins>
  562.         <multipleLines> <false /> </multipleLines>
  563.         <reservedFamily> 0 </reservedFamily>
  564.         <titleWidth>0</titleWidth>
  565.         <icon>0</icon>
  566.         <textAlign>left</textAlign>
  567.         <font>Geneva</font>
  568.         <textSize>10</textSize>
  569.         <textStyle>plain</textStyle>
  570.         <textHeight>13</textHeight>
  571.         <name>Marketing Contact</name>
  572.         <script>on keyDown ch
  573. if lengthOK(ch, 20, "marketing contact name") then pass keyDown
  574. end keyDown</script>
  575.     </part>
  576.     <part>
  577.         <id>81</id>
  578.         <type>field</type>
  579.         <visible> <true /> </visible>
  580.         <dontWrap> <false /> </dontWrap>
  581.         <dontSearch> <false /> </dontSearch>
  582.         <sharedText> <true /> </sharedText>
  583.         <fixedLineHeight> <false /> </fixedLineHeight>
  584.         <autoTab> <false /> </autoTab>
  585.         <lockText> <true /> </lockText>
  586.         <rect>
  587.             <left>9</left>
  588.             <top>142</top>
  589.             <right>505</right>
  590.             <bottom>186</bottom>
  591.         </rect>
  592.         <style>transparent</style>
  593.         <autoSelect> <false /> </autoSelect>
  594.         <showLines> <false /> </showLines>
  595.         <wideMargins> <false /> </wideMargins>
  596.         <multipleLines> <false /> </multipleLines>
  597.         <reservedFamily> 0 </reservedFamily>
  598.         <titleWidth>0</titleWidth>
  599.         <icon>0</icon>
  600.         <textAlign>left</textAlign>
  601.         <font>Palatino</font>
  602.         <textSize>12</textSize>
  603.         <textStyle>plain</textStyle>
  604.         <textHeight>16</textHeight>
  605.         <name>Text Info Paragraph 2</name>
  606.         <script></script>
  607.     </part>
  608.     <content>
  609.         <layer>background</layer>
  610.         <id>1</id>
  611.         <text>Change of Name/Address Form</text>
  612.     </content>
  613.     <content>
  614.         <layer>background</layer>
  615.         <id>70</id>
  616.         <text>Have you moved or changed company information?</text>
  617.     </content>
  618.     <content>
  619.         <layer>background</layer>
  620.         <id>71</id>
  621.         <text>Developer Programs delivers its monthly mailings to the Certified contact at your company. (Additional subscriptions to the Developer Mailing may be ordered through APDA).  We may occasionally deliver specialized information to the Marketing or Technical contact as well.  (Each contact should be reachable through your main corporate address.) </text>
  622.     </content>
  623.     <content>
  624.         <layer>background</layer>
  625.         <id>81</id>
  626.         <text>If you have recently moved or had a contact change, please take a few minutes to fill out and send this form to ensure we have the most current and accurate information for your company.</text>
  627.     </content>
  628.     <name>entry</name>
  629.     <script>function getBodyText
  630. put headerInfo() into infoMessage
  631. put customerInfo() after infoMessage
  632. return infoMessage
  633. end getBodyText
  634.  
  635. on doMessageSave
  636. put getBodyText() into bodyMessage
  637. ask file "File name to use for this text?" ¬¨
  638. with "Change of Address Text"
  639. if It is empty then exit doMessageSave
  640. put it into fileName
  641. open file fileName
  642. write bodyMessage  to file fileName
  643. close file fileName
  644. get the result
  645. if it is not empty then
  646. answer "ERROR:  " & return & it
  647. else
  648. put changeFileType (fileName,"TEXT","ttxt") into it
  649. if it contains "noError" then
  650. answer "A TeachText TEXT file has been created."
  651. else
  652. answer it
  653. end if
  654. end if
  655. end doMessageSave
  656.  
  657. function lengthOK ch, maxChars, fieldName
  658. get CharToNum(ch)
  659. if (it ‚↠3) and (it ‚↠8) and (it ‚↠9) and (it ‚↠13) then
  660. if the number of chars of target ‚â• maxChars then
  661. answer "A maximum of" && maxChars && "characters is allowed for the" && fieldName & "."
  662. return false
  663. end if
  664. end if
  665. return true
  666. end lengthOK</script>
  667. </background>
  668.